Cevela about COBOL COBOL language - Home - Site Map - About Cevela - MX COBOL    <prev   next>
6.   Statements for standard arithmetic
For more see links to the main provider's on-line documentation.
For MX COBOL see Summary comment + FAQ and How to ..

compute

                                                                 60-1
compute  output-item-1*  ...  =  arithm-expression-2*  error-phrases*
    

                                                                Det-1
output-item-1*
   Dat9-1  [rounded]

arithm-expression-2* ([+,-] Dat9-3 [+,-,*,/,** Dat9-4] ... ) ... Lit9-3 Lit9-4 arithm-expression-3* arithm-expression-4*

output-item* Dat9-2 [rounded]

error-phrases* [size error imperative-statements-1*] [not size error 85-1 imperative-statements-2*] [end-compute/add/subtract/multiply/divide] .


Remark: () parenthesis are recommended in greater expressions
MX limitation: phrases not size error and end-... are not implemented

add

                                                                 60-1
add  Dat9-1  ...  to  output-item*  ...  error-phrases*
     Lit9-1
    

                                                                 60-2
add  Dat9-1  ...  giving  output-item*  ...  error-phrases*
     Lit9-1
    

                                                                 68-3
add  corr  DatG-1  to  DatG-2  [rounded]  error-phrases*

MX limitation: this format is not implemented

subtract

                                                                 60-1
subtract  Dat9-1  ...  from  output-item*  ...  error-phrases*
          Lit9-1
    

                                                                 60-2
subtract  Dat9-1  ...  from  output-item*  ...  error-phrases*
          Lit9-1
    

                                                                 68-3
subtract  corr  DatG-1  from  DatG-2  [rounded]  error-phrases*

MX limitation: this format is not implemented

multiply

                                                                   60-1
multiply  Dat9-1  by  output-item*  ...  error-phrases*
          Lit9-1
    

                                                                   60-2
multiply  Dat9-1  by  Dat9-3  giving  output-item*  ...  error-phrases*
          Lit9-1      Lit9-3
    

divide

                                                                   60-1
divide  Dat9-1  into  output-item*  ...  error-phrases*
        Lit9-1
    

                                                                   60-2
divide  Dat9-1  into  Dat9-3  giving  output-item*  ...  error-phrases*
        Lit9-1  by    Lit9-3
    

                                                                   60-3
divide  Dat9-1  into  Dat9-3  giving  output-item*
        Lit9-1  by    Lit9-3

remainder Dat9-4 error-phrases*

COBOL language in brief - © Vlastimil Cevela 2006

Date 2006-06-03 - Text Builder 0.65 - Time 20:31:38